home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / jbl.arc / TS.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-01-03  |  849 b   |  21 lines
  1. 1 CLS : COLOR 15 : KEY OFF ' IBM functions
  2. 2 PRINT : INPUT "DRIVER Fs  ";FS
  3. 3 INPUT "DRIVER Qts ";QTS
  4. 4 INPUT "DRIVER Vas ";VAS
  5. 5 VB = (QTS^2.87)*15*VAS
  6. 6 F3 = (QTS^-1.4)*.26*FS
  7. 7 FB = (QTS^-.9)*.42*FS
  8. 8 PRINT : PRINT USING "BOX VOLUME = ###.## Ft^3,   F3 = ###.# Hz,   Fb = ###.# Hz";VB,F3,FB
  9. 9 PRINT
  10. 10 INPUT "Is the box size acceptable ";A$
  11. 11 IF A$="Y" OR A$="y" THEN 2
  12. 12 IF A$="N" OR A$="n" THEN 13 ELSE 10
  13. 13 INPUT "What box volume would you prefer ";VBX : PRINT
  14. 14 F3X=SQR(VAS/VBX)*FS
  15. 15 FBX=((VAS/VBX)^.32)*FS
  16. 16 PRINT USING "For a ###.# ft^3 box, F3 = ###.# Hz,   FB = ###.# Hz";VBX,F3X,FBX
  17. 17 L1=LOG(10) : DDB=20*LOG(((VAS/VBX)^.35)*QTS*2.6)/L1 : PRINT
  18. 18 IF DDB>0 THEN B$="+"
  19. 19 PRINT USING "The flattest alignment will have !##.# dB of low frequency response ripple";B$,DDB
  20. 20 PRINT "with this box volume" : GOTO 9
  21.